home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 12-04.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  1.6 KB  |  77 lines
  1. {$M 16384,0,0}
  2.  
  3. program main;
  4. uses fgmain, fgmisc;
  5.  
  6. const
  7.   VISUAL = 0;
  8.   HIDDEN = 1;
  9.  
  10.   xmin : array[0..11] of integer =
  11.             ( 0, 96,192,  0, 96,192,  0, 96,192,  0, 96,192);
  12.   ymax : array[0..11] of integer =
  13.             (49, 49, 49, 99, 99, 99,149,149,149,199,199,199);
  14.  
  15. var
  16.    status   : integer;
  17.    new_mode : integer;
  18.    old_mode : integer;
  19.    frame, offset : integer;
  20.    i, x, y : integer;
  21.  
  22. begin
  23.  
  24.   { initialize the video environment }
  25.  
  26.   new_mode := fg_bestmode(320,200,2);
  27.   if (new_mode < 0) or (new_mode = 12) then
  28.   begin
  29.     write('This program requires a 320 ');
  30.     writeln('x 200 color graphics mode.');
  31.     exit;
  32.   end;
  33.   old_mode := fg_getmode;
  34.   fg_setmode(new_mode);
  35.   status := fg_allocate(HIDDEN);
  36.  
  37.   { draw the background in the upper left corner }
  38.  
  39.   fg_setpage(HIDDEN);
  40.   fg_setcolor(1);
  41.   fg_rect(0,95,0,49);
  42.   fg_setcolor(15);
  43.   fg_move(48,25);
  44.   fg_ellipse(20,20);
  45.  
  46.   { display the animated object against each background }
  47.  
  48.   fg_setcolor(10);
  49.   offset := -10;
  50.   for i := 1 to 11 do
  51.   begin
  52.     x := xmin[i];
  53.     y := ymax[i];
  54.     fg_transfer(0,95,0,49,x,y,HIDDEN,HIDDEN);
  55.     fg_setclip(x,x+95,0,199);
  56.     fg_clprect(x+offset,x+offset+19,y-29,y-20);
  57.     inc(offset,10);
  58.   end;
  59.  
  60.   { slide the object across the background three times }
  61.  
  62.   for i := 0 to 35 do
  63.   begin
  64.     frame := i mod 12;
  65.     x := xmin[frame];
  66.     y := ymax[frame];
  67.     fg_transfer(x,x+95,y-49,y,112,124,HIDDEN,VISUAL);
  68.     fg_waitfor(2);
  69.   end;
  70.  
  71.   { restore the original video mode and return to DOS }
  72.  
  73.   status := fg_freepage(HIDDEN);
  74.   fg_setmode(old_mode);
  75.   fg_reset;
  76. end.
  77.